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1 subroutine sub (a, b,k,L,N) 

2 integer(kind=4), dimensiond :6) : : a, b 

3 integer (kind=4) : : L, N 

4 a(Z:L) = b(2:5) 

5 b(3:N) = a(1:4) 

6 do i=l,L 

7 k = k + a(i) 

8 enddo 

9 end subroutine 
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subroutine sub (a, b,k,L,N) 
integer(kind=4), dimens ion(1 :6) : : a, b 
integer (kind=4) : : L, N 
1=5 

a(2:L) = b(2:5) 
N=6 

b(3:N) = a(1:4) 
do 1=1, L 

k = k + a(i) 
enddo 
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a (2) = b(2) 
a (3) = b(3) 
a (4) = b(4) 
a (5) = b(5) 
b(3) = a(1) 
b(4) = a (2) 
b(5) = a (3) 
b(6) = a (4) 
k = k + a(1) 
k = k + a(2) 
k = k + a(3) 
k = k + a(4) 
k = k + a(5) 
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a (2) = b(2) 
a (3) = b(3) 
a (4) = b(4) 
a (5) = b(5) 
b(3) = a(1) 
b(4) = a (2) 
b(5) = a (3) 
b(6) = a (4) 
k = k + a(1) 
kl = a(2) + a(3) 
k2 = a(4) + a(5) 
k = k + kl 
k = k + k2 
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1 subroutine sub(r,q) 

2 real r (100), q (100) 

3 do i=1 , 100 

4 r(i)=q(i) 

5 enddo 

6 end subroutine 



(b) mnw? 



1 subroutine sub(r,q,L) 

2 real r(l00),q(100) 

3 integer L 

4 r(1:L)=q(1:100) 

5 end subroutine 
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a(1:L)=b(2:6) 

b(2:M)=c(3:L+2) 

c(3:N)=a(1:M-1) 



i l=5=m- i =n-2 (isjij (om^mm &m) 



d0 /"J'?/! «®^-^«^)ai^ 

a(i;=b(i+1) 
b(i+1)=c(i+2) 
c(i+2)=a(i) 
enddo 
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